cafe = read_csv(here::here("data/Sidewalk_Caf__Licenses_and_Applications_clean.csv"))
## Parsed with column specification:
## cols(
## .default = col_character(),
## zip = col_double(),
## swc_sq_ft = col_double(),
## swc_tables = col_double(),
## swc_chairs = col_double(),
## lat = col_double(),
## long = col_double(),
## community_district = col_double(),
## city_council_district = col_double(),
## app_sq_ft = col_double(),
## app_tables = col_double(),
## app_chairs = col_double(),
## app_status_date = col_datetime(format = ""),
## expiration_date = col_datetime(format = ""),
## app_too_date = col_datetime(format = ""),
## submit_date = col_datetime(format = ""),
## intake_dd = col_datetime(format = ""),
## send_package_dd = col_datetime(format = ""),
## cp_dd = col_datetime(format = ""),
## cb_dd = col_datetime(format = ""),
## hearing_dd = col_datetime(format = "")
## # ... with 4 more columns
## )
## See spec(...) for full column specifications.
parking = read_csv(
here::here("data/parking_vio2021_cleanv1.csv")) %>%
filter(hour != 12.3)
## Parsed with column specification:
## cols(
## id = col_double(),
## summons_number = col_double(),
## registration_state = col_character(),
## issue_date = col_datetime(format = ""),
## violation_code = col_double(),
## vehicle_make = col_character(),
## hour = col_double(),
## min = col_character(),
## violation_county = col_character(),
## house_number = col_character(),
## street_name = col_character(),
## intersecting_street = col_character(),
## vehicle_color = col_character(),
## vehicle_year = col_double(),
## address = col_character(),
## long = col_double(),
## lat = col_double(),
## borough = col_character(),
## fine_amount = col_double()
## )
plot_cafe_map =
parking %>%
count(street_name, name = "ticket") %>%
right_join(cafe) %>%
mutate(ticket = replace_na(ticket,1e-10))
## Joining, by = "street_name"
pal = colorNumeric(palette = c("viridis", "magma", "inferno","plasma")[[4]],
domain = plot_cafe_map$ticket %>% log())
plot_cafe_map =
plot_cafe_map%>%
mutate(pop =
str_c("<b>",business_name,"</b><br>",round(ticket)," tickets")) %>%
leaflet() %>%
addProviderTiles(providers$CartoDB.Positron) %>%
addCircleMarkers(
~ long,
~ lat,
color = ~pal(ticket %>% log()),
radius = .1,
popup = ~ (pop)
)
plot_cafe_map
##Geo vs ticket count
parking %>%
drop_na(address) %>%
group_by(borough, lat, long) %>%
summarize(tickets_count = n()) %>%
mutate(text_label = str_c("Tickets count:", tickets_count, "Borough:", borough)) %>%
plot_ly(x = ~lat, y = ~long, z = ~tickets_count, text = ~ text_label) %>%
add_markers(color = ~tickets_count,
alpha = 0.0001)
## `summarise()` regrouping output by 'borough', 'lat' (override with `.groups` argument)
## Warning: `arrange_()` is deprecated as of dplyr 0.7.0.
## Please use `arrange()` instead.
## See vignette('programming') for more help
## This warning is displayed once every 8 hours.
## Call `lifecycle::last_warnings()` to see where this warning was generated.